\name{orfhistory}
\alias{orfhistory}
\alias{rrfhistory}
\docType{data}
\title{
  Data: Historic Landings of Rockfish in BC
}
\description{
  \code{orfhistory}: Historic landings of rockfish, usually specified as Pacific
  Ocean Perch (POP) or \dQuote{other rockfish} (excluding POP) from nine data 
  sources. \cr \code{rrfhistory}: Historic landings of the reconstructed
  rockfish (RRF) that do not appear in any of the modern databases.
}
\usage{
  data(orfhistory)
  data(rrfhistory)
}
\format{
  A data frame with 38,805 observations for \code{orfhistory} (1,875 obs. for
  \code{rrfhistory}) on the following 9 variables. \cr
    \code{year......}{calendar year} \cr
    \code{spp.......}{rockfish species code (HART code)} \cr
    \code{major.....}{PMFC major area code} \cr
    \code{region....}{region ID associated with original data source} \cr
    \code{nation....}{two-letter code specifying nation that caught rockfish in BC:}\cr
    \code{..........}{CA=Canada, JP=Japan, PO=Poland UR=Union of Soviet Socialist} \cr
    \code{..........}{Republics (now Russia), US=United States of America} \cr
    \code{catch.....}{landed catch (kg)} \cr
    \code{source....}{data source (see below)} \cr
    \code{action....}{action specifying whether to \code{add} the catch to that of other years,} \cr
    \code{..........}{or compare it with catch from other years and take the \code{max}.} \cr
    \code{fishery...}{general gear categories: \code{trawl}, \code{trap}, \code{h&l}, or \code{combined}.}
}
\source{
\code{orfhistory}: \cr
\code{----------}  \cr
  \code{Yamanaka.....} 1918--1950 Landings (Canada Dominion Bureau of Statistics), \cr
  \code{Stewart......} 1930--1964 US landings from BC waters (Stewart, pers. comm.), \cr
  \code{GFCatch......} 1945--1953 Table \code{B3_Catch_Pre54}  (Thomson & Yates 1960--61), \cr
  \code{Ketchen76....} 1950--1975 Canadian and US landings from BC waters (Ketchen 1976), \cr
  \code{Obradovich...} 1951--1981 Sales slip data for red fish and rockfish (Obradovich), \cr
  \code{GFCatch......} 1954--1995 Logbooks and landings (GFCatch), \cr
  \code{Leaman80.....} 1965--1976 Japanese catch off WCVI and WCHG (Ketchen 1980a), \cr
  \code{Ketchen80....} 1965--1977 Russian and Japanese catch in BC waters (Ketchen 1980b), \cr
  \code{PacHarv3.....} 1982--1994 Sales slip data (PacHarv3); \emph{not used for trawl or trap}.

\code{rrfhistory}: \cr
\code{----------}  \cr
  \code{Ketchen76....} 1950--1975 Canadian and US landings from BC waters (Ketchen 1976), \cr
  \code{Ketchen80....} 1965--1977 Russian and Japanese catch in BC waters (Ketchen 1980b).
}
\references{
  Canada Dominion Bureau of Statistics (1918--1950)  Fisheries Statistics of
  Canada (British Columbia). Ottawa, Ontario.

  Ketchen, K.S. (1976) Catch and effort statistics of the Canadian and United
  States trawl fisheries in waters adjacent to the British Columbia coast 
  1950--1975. \emph{Fisheries and Marine Service, Data Record} No. \bold{6}. 
  Nanaimo, BC, May 1976.

  Ketchen, K.S. (ed.) (1980a) Assessment of groundfish stocks off the west coast
  of Canada (1979). \emph{Canadian Data Report of Fisheries and Aquatic Sciences},
  \bold{185}, xvii + 213 p.

  Ketchen, K.S. (1980b) Reconstruction of Pacific Ocean Perch (\emph{Sebastes
  alutus}) stock history in Queen Charlotte Sound. Part I. Estimation of foreign
  catches, 1965--1976. \emph{Canadian Manuscript Report of Fisheries and Aquatic
  Sciences} \bold{1570}. iv + 46 pp.

  Rutherford, K.L. (1999) A brief history of GFCatch (1954--1995), the
  groundfish catch and effort database at the Pacific Biological Station.
  \emph{Canadian Technical Report of Fisheries and Aquatic Sciences} 
  \bold{2299}. v + 66 pp.

  Thomson, J.A. and Yates, A.N. (1960) British Columbia landings of trawl-caught
  groundfish by month, by major statistical area. Vol. 1, 1945--1949. 
  \emph{Fisheries Research Board of Canada, Statistical Circular Series} No. \bold{CNS 1}.

  Thomson, J.A. and Yates, A.N. (1961) British Columbia landings of trawl-caught
  groundfish by month, by major statistical area. Vol. 2, 1950--1954. 
  \emph{Fisheries Research Board of Canada, Statistical Circular Series} No. \bold{CNS 2}.
}
\examples{
\dontrun{
local(envir=.PBSdataEnv,expr={
pbsfun=function(dat, spp="396", ...){
  opar = par(no.readonly=TRUE); on.exit(par(opar))
  if (!require(PBStools, quietly=TRUE)) stop("`PBStools` package is required")
  data(orfhistory,envir=.PBSdataEnv)
  dat  = dat[is.element(dat$spp,spp),]
  ctab = crossTab(dat,c("year","source"),"catch",function(x){sum(x)/1000})
  out  = as.data.frame(ctab[,-1]); row.names(out)=ctab[,1]
  sou  = dimnames(out)[[2]]; nsou = length(sou)
  clrs = c("red","blue","orange","purple","gold","green4","black","pink")[1:nsou]
  expandGraph(mar=c(3,3,.5,.5))
  evalCall(barplot,argu=list(height=t(out),beside=TRUE,col=clrs,border=FALSE,type="h",
    space=c(0,0),las=3,cex.axis=.8,cex.names=.8,xaxs="i"),...,checkdef=TRUE,checkpar=TRUE)
  legend("topleft",bty="n",fill=clrs,legend=sou,inset=.025)
  mtext("ORF Catch (t)",side=2,line=2,cex=1.2)
  invisible(out)
}
x = pbsfun(orfhistory,spp=c("388","389","391"),space=c(0,0))
})
}
}
%\seealso{
%  \code{\link{buildCatch}}
%}
\keyword{datasets}

